home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-13
/
bingo300.zip
/
SIDEBY.CHS
< prev
next >
Wrap
Text File
|
1992-10-18
|
930b
|
40 lines
double_down{
if(ask("file_w_width")!=ask("sys_cols)){
/* boom! we have to do both
if(ask("file_w_left")==1){
b_cmd("down_page");
b_cmd("window_next");
b_cmd("down_page");
b_cmd("window_prev");
}
else{
b_cmd("down_page");
b_cmd("window_prev");
b_cmd("down_page");
b_cmd("window_next");
}
}
else{
b_cmd("down_page");
}
}
double_up{
if(ask("file_w_width")!=ask("sys_cols)){
/* boom! we have to do both
if(ask("file_w_left")==1){
b_cmd("up_page");
b_cmd("window_next");
b_cmd("down_page");
b_cmd("window_prev");
}
else{
b_cmd("up_page");
b_cmd("window_prev");
b_cmd("down_page");
b_cmd("window_next");
}
}
else{
b_cmd("down_page");
}
}